ToolBook 3.0/ToolBook v3.0.iso/tb30/samples/mapi.tbk

Asymetrix ToolBook File | 1994-05-19 | 86.8 KB | 1,653 lines

Counting Messages
Checking For Unread Mail
Using MAPI
Using MAPI+
Microsoft's Messaging Application Programming Interface (MAPI) is a set of high level DLL functions that are the foundation of electronic mail in Windows. Applications use these functions to create, manipulate, transfer, and store messages.
The scripts and examples in this book demonstrate how to access MAPI from ToolBook, but are not intended to teach you MAPI. It is assumed that you are familiar with and have documentation for MAPI.
The handlers which directly access the MAPI functions are all found in the script of this book.s which applications used to create, manipulate, transfer, and store messages. Most of these functions are exported from MAPI.DLL and form the basis for electronic mail in Windows.
The scripts and examples in this book demonstrate how to access MAPI from ToolBook, but are not intended to teach MAPI to the user. In fact. it is assumed that user is familiar with and has documentation for MAPI.
The handlers which directly access the MAPI functions are all found in the book script.
Sending Messages
Sending Messages
Sending Messages5
The example below illustrates how to send a message without using the MAPI dialog box. Fill in the fields below and click the button when you are ready to send the message..the message.
Send Message
}str_sent
getAddress
sendMessage
s_MAPIError
str_notSent
buttonClick
buttonClick
4s_MAPIError
there
no recipient supplied
        -- call up
6 Address Book
getAddress()
        --
we don't
address we won't
a message
        -- fill
 appropriate
sendMessage(
"sub",
"body")
    -- confirm whether
 was sent
str_notSent()&&
str_sent()
&Send Message
Bob N.
We're almost there now.
Don't blow it!
Subject:
Text:
Submit Reports
Receive Reports
Receive Reports
View New
uupdateMessages
buttonClick
buttonClick
    -- scan incoming mail
problem reports
setup the
    -- (
message
handled
updateMessages
&View New
delete
[4deleteMessage
uupdateMessages
str_OK
s_MsgHandles
s_MsgNum
s_MAPIError
Rstr_notDelete
buttonClick
buttonClick
4s_MsgNum,s_MsgHandles,s_MAPIError
    -- delete the current message
deleteMessage(
<> str_OK()
str_notDelete()&&
    -- refresh
[ list
    -- (
handled
updateMessages
D&elete
Previous
8parseMsgText
s_MsgNum
buttonClick
buttonClick
4s_MsgNum
mail message
disable
G = 1
        enabled
B"Next" =
    -- fill
~fields
    -- (
handled
parseMsgText
&Previous
Previous
8parseMsgText
s_MsgCount
s_MsgNum
buttonClick
buttonClick
4s_MsgNum,s_MsgCount
tmessage
, disable
        enabled
B"Previous" =
    -- fill
fields
    -- (
handled
parseMsgText
&Next
Submit Reports
Submit Reports
buttonClick
buttonClick
"Submit Reports"
&Submit Reports
examples
buttonClick
buttonClick
the example
Fclose
isOpen
"examples"
&Done
toLabel
From:ss:
problem
Department
address
msgnum
No messagesf 10
toLabel
Department:
office
phone
toLabel
Problem Area:
toLabel
Phone::::::::
toLabel
Office: Area:
toLabel
Description of problem:
description
toLabel
Sent:ss:
timestamp
Example: Problem Reports
Verifying Names
-- a notify handler was used
the address
you enter
Verifying Names
Verifying Names
Click Check Names to get the full names of those displayed in the upper field and place them in the lower field.
If a name is ambiguous, MAPI displays a dialog box that allows the user to choose the correct name.opriate... field.
If a name is ambiguous, MAPI will display a dialog allowing the user to choose which name is appropriate.
Check Names
1,    #>
checkNames
partial
s_MAPIError
str_notResolved
buttonClick
buttonClick
4s_MAPIError
a list
verified names
checkNames(
"partial")
error condition
"full" =
        --
some
hcould
xbe resolved:
        -- the
value
        --
those that
        --
        --
,were
str_notResolved()&
&Check Names
partial
Tom,Dick,Harry
enterPage
notifybefore
= "Tom,Dick,Harry"
Tom,Dick,Harryelda
enterPage
notifybefore
enterPage
examples
Linking to MAPI.DLL
Sending Messages
Checking For Unread Mail
-- notify handlers were used
[the fields
-- you enter
Checking For Unread Mail
Checking For Unread Mail
The script of this button steps through the messages in your incoming mail folder, looking for unread messages. The sender and subject of each unread message are placed in the fields below.. fields.
Check for Unread Mail
eck for Unread Mail
Messages
text area
textScrolled
buttonUp
the fields together
-- There are three
order
these
-- smoothly,
filled
fdummy
which has
-- same
other
. Only
b. When
scrolled,
2two
-- If there were only
bar would
textScrolled
oselectedtextlines =
scrollbar
enterPage
notifybefore
Subject
enterPage
notifybefore
enterPage
notifybefore
From:
Subject:
enterPage
&Check for Unread Mail
functions
linkdll "mapi.dll"
   DWORD MAPILogoff (DWORD, DWORD, DWORD, DWORD)
   DWORD MAPILogon (DWORD, STRING, STRING, DWORD, DWORD, POINTER)
   DWORD MAPIFindNext (DWORD, DWORD, DWORD, POINTER, DWORD, DWORD, \
                                        POINTER)
   DWORD MAPIFreeBuffer (POINTER)
   DWORD MAPISendMail (DWORD, DWORD, POINTER, DWORD, DWORD)
   DWORD MAPIReadMail (DWORD, DWORD, STRING, DWORD, DWORD, POINTER)
   DWORD MAPIResolveName (DWORD, DWORD, STRING, DWORD, DWORD,  \
                                              POINTER)
   DWORD MAPISendDocuments (DWORD, STRING, STRING, STRING, DWORD)
   DWORD MAPIAddress (DWORD, DWORD, STRING, DWORD, STRING, DWORD, \
                                      DWORD, DWORD, DWORD, POINTER, POINTER)
   DWORD MAPIDeleteMail (DWORD,DWORD,STRING,DWORD,DWORD)
end linkDLL,STRING,DWORD,DWORD)
end linkDLL
buttonClick
buttonClick
isOpen
"link"
        close
functions
buttonClick
Bcopies
clipboard
buttonClick
    -- place
"functions"
    -- take
B"ok"
&Copy to Clipboard
&File
&Open...    Ctrl+O
&Save    Ctrl+S
Save &As...
saveas
Print Set&up...
printsetup
&Print Pages...    Ctrl+P
printpages
&Run...
E&xit    Alt+F4
&Edit
&Undo    Ctrl+Z
Cu&t    Ctrl+X
&Copy    Ctrl+C
&Paste    Ctrl+V
paste
C&lear    Del
clear
Aut&hor    F3
author
&Page
&Next    Alt+Right
&Previous    Alt+Left
previous
&Menu    Alt+Up
first
&Help
&Contents    F1
contents
g: fs2/vo
Linking to MAPI.DLL
Linking to MAPI.DLL
The functions for handling messages in Windows are exported from MAPI.DLL. Click View DLL Functions to see the way these functions are prototyped in OpenScript.ped in OpenScript.
buttonClick
buttonClick
display a
which
    -- linking information
&View DLL Functions
Composing Mail
Composing Mail
Composing Mail
Click Compose Message to open the MAPI dialog box you use to compose and send a message.
Click Attach a File if you want to attach a file to the message you compose.....se buttons bring up the MAPI dialog box allowing you to compose and send a message.
The second button attaches a file to the message that you compose.
Compose Message
s_MAPIError
ucomposeMessage
buttonClick
buttonClick
4s_MAPIError
    -- compose a message
composeMessage()
returned -
error condition
k <>
&Compose Message
Attach a File
filename
ZsendFile
s_MAPIerror
buttonClick
buttonClick
4s_MAPIerror
    -- compose a message
attached file
sendFile(
"filename")
returned -
b condition
s_MAPIError <>
&Attach a File
filename
enterPage
notifyBefore
C:\JX\MAPI\MAPI.TBKKKKKKKBK
enterPage
Composing Mail
Looking up Addresses
Verifying Names
Counting Messages
Counting Messages
Counting Messages
Click the appropriate button below to count the messages in your incoming mail folder.by stepping through them one at a time.il folder by stepping through them one at a time. This first counts all messages, and the seconds counts only unread messages.
Count All Messages
.&+    +E
.&+    +E
FALSE
str_msgCountAll
l'getNextMsgID
1RgetFirstMsgID
buttonClick
buttonClick
ZLONG count
the ID
message (read
unread)
getFirstMsgID(FALSE)
found
        --
getNextMsgID(
str_msgCountAll(
Count &All Messages
Count Unread Messages
.&+    +E
.&+    +E
l'getNextMsgID
Dstr_msgCountUnread
1RgetFirstMsgID
buttonClick
buttonClick
ZLONG count
the ID
message (read
unread)
getFirstMsgID(TRUE)
found
        --
getNextMsgID(
str_msgCountUnread(
Count &Unread Messages
Arial
Arial
Arial
Arial
 Sans Serif
Arial
Arial
MS Sans Serif
Page id 23
examples
Page "Submit Reports"
MAPI Tutorial
examples
Submit Reports
department
Salestingnt
Development
Executive
Finance
Marketing
Sales
Technical Support
Testings
problem
Hardware Problemtion
E-Mail
Hardware Installation
Hardware Problem
Network
Other
Phones
Printers
Software Installation
Software Problem
office
phone
x3434
description
My machine won't boot right. The disk keeps running and running but nothing happens.
Change Address
nameList
getAddress
buttonClick
buttonClick
    -- call up the Addressbook dialog
a list
names
    nameList = getAddress()
namelist
&Change Address
Receive Reports
Receive Reports
buttonClick
buttonClick
"Receive Reports"
ceive Reports
examples
buttonClick
buttonClick
the example
Fclose
isOpen
"examples"
&Done
Jim Geldmacher
str_problemRep
enterPage
subject
standard
reports
notifybefore
= str_problemRep()
Problem Report
toLabel
Address:
toLabel
Subject:
toLabel
Department:
toLabel
Problem Area:
toLabel
Phone::::::::
toLabel
Office: Area:
toLabel
Description of problem:
Submit Report
Office:
Department:
phone
description
problem
Problem Report
Phone:
Description:
Problem:
sendMessage
nstr_notSubmit
s_MAPIError
office
department
str_submit
buttonClick
buttonClick
4s_MAPIError
ZmsgTxt
    -- build the
message
' = "Problem Report"
D = "Department:"
combobox "department"
3problem"
 = "Office:"
"office"
 = "Phone:"
"phone"
 = "Description:"
"description"
sendMessage(
"sub",
str_notSubmit()&&
str_submit()
bmit Report
enterPage
&Submit Report
&Receive Reports
GvGvG
    -- update the status
updateMessages
4LONG s_MsgCount,s_MsgNum
    -- initialize
flist
messages
initMessageList str_problemRep()
there
)least one
z > 0
        --
invalid reset
 = 0
        -- parse
current
parseMsgText
        --
browsing buttons
            enabled
" = FALSE
" = TRUE
t" =
t" =
B"delete" =
        --
are no
 fields
"msgnum" = str_noMessages()
"address"
"department"
"office"
"phone"
"description"
"timestamp"
        --
t" =
-- generate a
 than contain
filter
their subjects
4s_MsgHandles
4s_MAPIerror
ZlastID
ZmsgSub
getFirstMsgID(
more
        --
 = getMsgSub(
        --
        --
getNextMsgID(
-- take
fill
appropriate
4s_MAPIError
ZmsgTxt
ender
getCurrentMsgName()
k&str_update()
fstr_OK()
str_cancel()
 = getCurrentMsgText()
&&str_of()&&
 = getCurrentMsgDate()
 returns
getMsgName(
getMsgText(
getMsgDate(
buttonClick
ZnameText,subText,scrollText
ZLONG msgNum
the ID
unread message
getFirstMsgID(TRUE)
    -- repeat
Zno more messages are found
    -- optimization:
faster
aincremental
Fplace
, than
Qdirectly
. In
list
generated one
Fplaced
fields
complete.
        -- extract
sender
 = getMsgName(
        --
subject
 = getMsgSub(
        --
places dummy
(only
        --
shows on th
        --
technique allows you
        -- much
smoothly
        --
getNextMsgID(
str_noUnread()
        --
"Subject" =
"ScrollBar" =
 1993,1994. Asymetrix Corporation. All Rights Reserved.
-- Author: Jim Geldmacher
Mgives you permission
e, revise,
reuse the
-- individual
scripts
your own
-- applications.
You may
H entire
-- substantial part
redistribution
` product.
retains
 copyright on
 original elements
 . Include
 notice
--     "Portions
 1993, 1994.
they contain
copied
-- Standard ToolBook messages
enterApplication
xsysRuntime
    -- link
 DLLs
initLinks
MAPI
available
isMAPIAvailable()
SessionLogon()
str_noMAPI()
leaveApplication
4s_SessionHandle
logged
' <>
SessionLogoff()
unlinkMAPI
    -- unlinkDLLs
related functions
-- Notes:
-- Functions that are exported
z have
four
their
other
y used
Udefined
%OpenScript "
-- handlers.
-- The basic
need
access
examples
-- here.
-- There
two structures
store recipients
Recipient Structure
-- Offset    Type    Element
--    0        DWORD
 Must be 0
--    4
JClass
--    8        POINTER    Pointer
Name
--    12
Address
--    16
\Size
Entry ID
bytes
--    20
buffer.
Classes
--    0 =
 originator
--    1 = primary
--    2 = ropy
--    3 = blind
Message
--    0
--    4
Subject
--    8
?Text
--    12
. NULL
mail.
--    16
Date. Format
YYYY/MM/DD HH:MM
--    20
Thread ID. Ignored
Hsome systems.
--    24
Mail Flags
--    28
Sender's
--    32
Number
--    36
array
--    40
file attachments
--    44
 descriptors
 returns TRUE
FALSE otherwise.
IsMAPIAvailable
-- According
spec,
 should
a non-zero "
;" entry
Y [MAIL] section
WIN.INI
determine
support
does
z, just a
ma_GetWinIniVar("
-- sessionLogOn() attempts
--    If the
successful,
"OK"
returned. Otherwise, s_MAPIError
SessionLogOn
ZlphSession, retVal
getWinPointer(4)
MAPILogon(
,"","",1,0,
        -- extract
 = PointerDWORD(0,
 = str_OK()
        --
what error occured
= getMAPIErrorString(
    -- free
freeWinPointer (
-- sessionLogOff()
[off
current
-- If
"OK"
SessionLogOff
MAPILogoff(
,0,0)
        -- discard
        --
= GetMAPIErrorString(
-- getting
     IDs
-- getFirstMsgID()
appropriate type
newMail
only considers unread
-- folder
considered.
 logical
    ,s_MAPIerror
ZlpMsgSeedID,lpMsgID
 mailFlag
xisType(
,s_sessionHandle)
str_lostMAPI()
    -- assign buffers
 flag
 = 32
MAPIFindNext(
, 0, 0,
        --
there
value
        msgID =
 = getMAPIerrorString(
        --
-- getNextMsgID()
_ lastID,
 = 32
, 0, 0,
        --
        --
-- reading
-- getMsgName() reads
specified
sender. If
ZlpPtrMsg,
ZlpSender,lpName
ZmsgName
    -- allocate a
recieve a
("envelope")
    -- 0x00C0 = MAPI_ENVELOPE_ONLY + MAPI_PEEK
MAPIReadMail(
        --
        --
0(28,
        --
        --
MAPIFreeBuffer(
allocated memory
-- getMsgSub()
subject
. If
ZlpSubject
ZmsgSub
    -- 0
        --
        --
        --
        --
-- getMsgDate()
was received. If
ZlpDate
ZtmpDate,tmpTime
ZmsgDate
    -- 0
        --
        --
0(16,
        --
        --
        -- reformat
default
"y/mm/dd"
"h24:
-- getMsgText()
. If
ZlpText
ZmsgTxt
 (ignore
    -- 0x0180 =
 + MAPI_SUPPRESS_ATTACH
        msgText =
        --
        --
        --
        --
addresses
-- getAddress() calls up
dialog box. If no
-- occurs
list
W chosen
ZlpPtrNum
ZlpPtrRec,lpRec
 recNum
 recOffset
ZrecNames
    -- display
MAPIAddress(
,0,"",1,"",0,0,1,0,
        -- retrieve
            --
            --
through
 = (i-1)* 24
            -- frre
names
-- checkNames() takes a
partial
1. If
> could be
-- resolved
full mailing
 consists
containing
those
ZSTACK goodNames,badNames
Xeach
        --
        -- 0x0409 = MAPI_LOGON_UI + MAPI_DIALOG + MAPI_AB_NOMODIFY
MAPIResolveName(
            --
pcannot be
            --
            --
            lpRecip =
            --
            --
valid
            --
-- sending
-- composeMessage() displays
coposing
. If
"OK"
4s_Sessionhandle,
blank
    -- 0x0009 =
MAPISendMail(0,0,
-- sendFile() opens
 mesage
-- attached
!. Null
-- "OK"
l fileName
MAPISendDocuments(0, ";",
p, shortFileName(
), 0)
-- sendMessage() sends a
"OK"
a recipent
-- ambiguous
user will be prompted
clarify
 recips,
ZlpBuff,lpTmp
Zstack recipStack
  numRec
ZLONG count
    -- find out many
z"so enough
    -- can be
        -- a
  which
        -- a
        -- a
        -- a
        -- a
    -- create a temporary
    -- fill
        --
        --
        -- 0
UI +
            --
            --
            --
contents
            -- optimization:
Windows
much faster
            -- than stepping
ma_hmemcpy(
            --
7 counter
            -- keep track
cleanup later
 were
        --
strings
        --
,(32,
0(36,
        --
,1,0)
5! =
        --
        -- pointers
:'stored
%a 2-
order
        --
necessary
grab
-- deleting
-- deleteMessage() removes
$ "OK
MAPIDEleteMail(
,0,0)
e# =
t# =
-- Utility
"code associated
# nErrorNumber
        When
"Operation Succeded"            --SUCCESS_SUCCESS
"User Aborted"
--MAPI_USER_ABORT
kFailed"            --MAPI_E_FAILURE
"Login
0    --MAPI_E_LOGIN_FAILURE
"Disk Full"
--MAPI_E_DISK_FULL
"Insufficient Memory"        --MAPI_E_INSUFFICIENT_MEMORY
"Block Too Small"            --MAPI_E_BLK_TOO_SMALL
5Many Sessions"            --MAPI_E_TOO_MANY_SESSIONS
?Files"
--MAPI_E_TOO_MANY_FILES
yRecipients"        --MAPI_E_TOO_MANY_RECIPIENTS
"Attacment Not Found"        --MAPI_E_ATTACHMENT_NOT_FOUND
"Failure Opening Attachment"    --
LOPEN_FAILURE
?Writing
|WRITE_FAILURE
"Unknown
+"            --MAPI_E_UNKNOWN_RECIPIENT
"Bad
+"            --MAPI_E_BAD_RECIPTYPE
"No Messages"
--MAPI_E_NO_MESSAGES
"Invalid
;"            --MAPI_E_INVALID_MESSAGE
Large"            --MAPI_E_TEXT_TOO_LARGE
/"            --MAPI_E_INVALID_SESSION
Supported"            --MAPI_E_TYPE_NOT_SUPPORTED
"Ambiguous
T-"        --MAPI_E_AMBIGUOUS_RECIPIENT
$(:"&&
*a filename
.has been stripped
path information
 fName
harCnt, i
    charCnt =
- 1)
Vi+1
)) allocates a block
global
) nSize
ZhMem,ptr
 ma_globalAlloc(66,
%) -- 66
Movable, Zero-Init
str_noMem()
ma_globalLock(
v)() frees
)lpPointer
 = ma_globalHandle(
') --
Hselector)
ma_globalUnlock(
ma_globalFree(
p1() establishes a
H2DLL
--    a
& indicating
found.
    sysS =
provide messaging
X"mapi.dll"
`0, STRING,
o1, \
1 MAPIDeleteMail (
.links
kernel
# managment
        INT
tbkwin
4 "tb30win.
    ma_getWinIniVar=
4 disconnects
str_noUnread
str_msgCountAll
%5"&&
str_msgCountUnread
Z5"&&
I."&&\
5Microsoft
7-compatible e-
!3 client software installed"&&\
:6 correctly."
I."&&\
F,"&&\
-9wish
str_notResolved
"These
str_sent
str_notSent
str_notSubmit
"Report
xsubmitted:"
str_submit
str_notDelete
xdeleted:"
str_noMessages
str_error
str_update
"Update
str_cancel
"Cancel"
str_message
str_of
str_problemRep
"Problem
"Aborting operation:
 Allocation
uupdateMessages
enterPage
+%,!"
+%,!>
+%,!"
.&+%?
problem
s_MsgNum
phone
address
description
str_noMessages
previous
delete
8parseMsgText
initMessageList
msgnum
office
department
timestamp
str_problemRep
s_MsgCount
updateMessages
.&+    +E
.&+%?
+%,!Y
+%,H3
.&+    +E
FALSE
l'getNextMsgID
getMsgSub
s_MsgHandles
1RgetFirstMsgID
s_MsgCount
initMessageList
w,    #>
+%,    #?
w,    #?
+%,    #?
address
s_MAPIError
phone
str_cancel
description
'getCurrentMsgText
str_message
getCurrentMsgDate
problem
uupdateMessages
str_OK
getCurrentMsgName
msgnum
str_update
str_of
s_MsgNum
Error:
office
department
timestamp
s_MsgCount
parseMsgText
+%,H3
s_MsgNum
s_MsgHandles
getMsgName
getCurrentMsgName
+%,H3
getMsgText
s_MsgNum
s_MsgHandles
getCurrentMsgText
+%,H3
s_MsgNum
s_MsgHandles
getMsgDate
getCurrentMsgDate
.&+    +E
.%,    7
.&+    +E
(str_noUnread
l'getNextMsgID
ScrollBar
getMsgSub
1RgetFirstMsgID
Subject
getMsgName
buttonClick
initLinks
3SessionLogon
isMAPIAvailable
str_noMAPI
enterApplication
unlinkDLLs
s_SessionHandle
USessionLogoff
unlinkMAPI
leaveApplication
reader
FALSE
ma_GetWinIniVar
clinkMAPI
IsMAPIAvailable
freeWinPointer
$bgetWinPointer
MAPILogon
s_SessionHandle
str_OK
DgetMAPIErrorString
s_MAPIError
SessionLogOn
s_SessionHandle
str_OK
MAPILogoff
DGetMAPIErrorString
s_MAPIError
SessionLogOff
.&+    +E
$bgetWinPointer
msgID
s_SessionHandle
MAPIFindNext
d3str_lostMAPI
DgetMAPIerrorString
s_MAPIerror
getFirstMsgID
.&+    +E
$bgetWinPointer
s_SessionHandle
lpMsgSeedID
MAPIFindNext
d3str_lostMAPI
DgetMAPIerrorString
s_MAPIerror
lpMsgID
getNextMsgID
.&+    +E
freeWinPointer
$bgetWinPointer
s_SessionHandle
8aMAPIFreeBuffer
d3str_lostMAPI
DgetMAPIErrorString
s_MAPIerror
MAPIReadMail
getMsgName
.&+    +E
freeWinPointer
$bgetWinPointer
s_SessionHandle
8aMAPIFreeBuffer
d3str_lostMAPI
DgetMAPIErrorString
s_MAPIerror
MAPIReadMail
getMsgSub
.&+    +E
freeWinPointer
$bgetWinPointer
s_SessionHandle
8aMAPIFreeBuffer
y/mm/dd
d3str_lostMAPI
DgetMAPIErrorString
s_MAPIerror
h24:min
MAPIReadMail
getMsgDate
.&+    +E
freeWinPointer
$bgetWinPointer
s_SessionHandle
8aMAPIFreeBuffer
d3str_lostMAPI
DgetMAPIErrorString
s_MAPIerror
msgText
MAPIReadMail
getMsgText
.&+    +E
,%H.%
freeWinPointer
$bgetWinPointer
s_SessionHandle
8aMAPIFreeBuffer
MAPIAddress
d3str_lostMAPI
DgetMAPIErrorString
s_MAPIError
getAddress
.&+    +E
,%H.%
freeWinPointer
$bgetWinPointer
s_SessionHandle
8aMAPIFreeBuffer
MAPIResolveName
d3str_lostMAPI
DgetMAPIerrorString
s_MAPIError
checkNames
.&+    +E
freeWinPointer
$bgetWinPointer
s_Sessionhandle
str_OK
d3str_lostMAPI
DgetMAPIErrorString
s_MAPIError
MAPISendMail
composeMessage
.&+    +E
s_Sessionhandle
MAPISendDocuments
str_OK
HshortFileName
d3str_lostMAPI
DgetMAPIErrorString
s_MAPIError
sendFile
.&+    +E
freeWinPointer
$bgetWinPointer
ma_hmemcpy
s_Sessionhandle
str_OK
8aMAPIFreeBuffer
MAPISendMail
MAPIResolveName
d3str_lostMAPI
DgetMAPIerrorString
s_MAPIError
recipient
sendMessage
.&+    +E
[MAPIDEleteMail
s_SessionHandle
str_OK
d3str_lostMAPI
DgetMAPIerrorString
s_MAPIError
deleteMessage
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
.&,    "
Too Many Sessions
Too Many Files
Invalid Message
Block Too Small
Too Many Recipients
Failure Opening Attachment
Invalid Session
Attacment Not Found
Failure Writing Attachment
Bad Recipient Type
Type Not Supported
Insufficient Memory
No Messages
Disk Full
Login Failed
Operation Succeded
Text is Too Large
Unknown Recipient
User Aborted
Operation Failed
Unknown error:
Ambiguous Recipient
getMAPIErrorString
shortFileName
&ma_globalLock
str_noMem
Kma_globalAlloc
getWinPointer
!pma_globalHandle
ma_globalUnlock
} ma_globalFree
freeWinPointer
MAPILogoff
,&UgF
MAPILogon
MAPIFindNext
MAPIFreeBuffer
MAPISendMail
MAPIReadMail
,BUny F.&
MAPIResolveName
MAPISendDocuments
MAPIAddress
MAPIDeleteMail
mapi.dll
linkMAPI
tb30win.dll
globalAlloc
ma_globalAlloc
globalLock
ma_globalLock
,#UF
globalUnlock
ma_globalUnlock
,#TOHIf-"
globalFree
ma_globalFree
globalHandle
ma_globalHandle
,"TgF
hmemcpy
ma_hmemcpy
getWinIniVar
ma_getWinIniVar
kernel
initLinks
mapi.dll
unlinkMAPI
tb30win.dll
kernel
unlinkDLLs
You have no unread messages.
str_noUnread
You have
messages.
str_msgCountAll
unread messages.
You have
str_msgCountUnread
MAPI is not available at this time.
You need to have Microsoft Mail or MAPI-compatible e-mail client software installed
for the examples in this book to function correctly.
str_noMAPI
The examples in this book will not function correctly,
MAPI is not available at this time.
you may wish to exit.
str_lostMAPI
str_OK
These names could not be resolved:
str_notResolved
Message sent.
str_sent
Message not sent:
str_notSent
Report not submitted:
str_notSubmit
Report submitted.
str_submit
Message not deleted:
str_notDelete
No messages
str_noMessages
Error:
str_error
Update Messages?
str_update
Cancel
str_cancel
Message
str_message
str_of
Problem Report
str_problemRep
Aborting operation: Memory Allocation Error.
str_noMem
xdeleted:"
str_noM
examples
in,true
ThreeDeeRect
text area
bottomLine
topLine
description
description
enterpage
doesn't fit,
notifybefore
"description"
Front
front
enterpage
handler keeps the title
synchronized
notifybefore
"front"
Previous
buttonClick
enterPage
.one
buttonClick
-- determine
navigation
should be allowed
notifybefore
on a different
oenabled = (
main menu
buttonClick
main menu
enterPage
the main
buttonClick
-- determine
Bnavigation
Ienu
should be allowed:
notifybefore
ycurrent
oenabled = (
buttonClick
enterPage
buttonClick
-- determine
navigation
should be allowed
notifybefore
on a different
oenabled = (
in,true
ThreeDeeRect
work area
bottomLine
topLine
enterPage
main menu
-- a notify handler was used
update
you enter
Main Menu
Main Menu
buttonClick
,%H.%
front
enterpage
buttonClick
ZLONG lineNum
    -- determine which
Uwas selected
* = selectedTextlines
that
-- update the
list
notifybefore
ZSTRING newText
    -- generate a
    -- optimization:
faster
aincremental
place
, than
    -- directly
B(i-1)
J"front"
Using MAPI
Linking to MAPI.DLL
Looking up Addresses
Verifying Names
Checking For Unread Mail
Counting Messages
Composing Mail
Sending Messages
Example: Problem Reports
Choose one of these topics:low by clicking on its name:
enterpage
Example: Problem Reports
Example: Problem Reports
Example: Problem Reports+
The following two examples demonstrate how a small MAPI application, such as a custom e-mail form, might be built in ToolBook.
The first example is a guided input form for submitting problem reports. The user simply fills in the blanks and clicks on a button to submit the report.
The second example scans the user's incoming mail folder for problem reports submitted using the e-mail form. This provides a simple interface for browsing through these messages...................................
Submit Reports
examples
Submit Reports
buttonClick
buttonClick
    -- display a
example
"examples"
    currentpage
"Submit Reports"
&Submit Reports
Receive Reports
Receive Reports
examples
buttonClick
buttonClick
    -- display a
example
"examples"
    currentpage
"Receive Reports"
&Receive Reports
main menu
right
grey all
grey left
grey right
Looking up Addresses
-- a notify handler was used
the address
you enter
Looking up Addressesok]
Looking up Addressesokkess Book
Click Look Up Address to display the dialog box MAPI provides for choosing addresses. Names you select from the list will be placed in the field below...........................
Look Up Address
nameList
getAddress
s_MAPIError
buttonClick
buttonClick
4s_MAPIError
up the Address Book dialog
retrieve a list
names
    nameList = getAddress()
returned -
error condition
&Look Up Address
enterPage
notifybefore
enterPage